home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue69 / System / DeskTesterForm.dfm < prev    next >
Encoding:
Text File  |  2001-03-22  |  4.1 KB  |  206 lines

  1. object Form1: TForm1
  2.   Left = 243
  3.   Top = 131
  4.   BorderStyle = bsDialog
  5.   Caption = 'Desktop Testbed'
  6.   ClientHeight = 397
  7.   ClientWidth = 762
  8.   Color = clBtnFace
  9.   Font.Charset = DEFAULT_CHARSET
  10.   Font.Color = clWindowText
  11.   Font.Height = -11
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   OldCreateOrder = False
  15.   Position = poScreenCenter
  16.   OnCreate = FormCreate
  17.   PixelsPerInch = 96
  18.   TextHeight = 13
  19.   object DeskView: TListView
  20.     Left = 8
  21.     Top = 16
  22.     Width = 361
  23.     Height = 337
  24.     Color = 8404992
  25.     Columns = <
  26.       item
  27.         Caption = 'Desktop Item'
  28.         Width = 150
  29.       end
  30.       item
  31.         Caption = 'X Pos'
  32.         Width = 70
  33.       end
  34.       item
  35.         AutoSize = True
  36.         Caption = 'Y Pos'
  37.       end>
  38.     Font.Charset = DEFAULT_CHARSET
  39.     Font.Color = 8454143
  40.     Font.Height = -11
  41.     Font.Name = 'MS Sans Serif'
  42.     Font.Style = []
  43.     RowSelect = True
  44.     ParentFont = False
  45.     TabOrder = 0
  46.     ViewStyle = vsReport
  47.     OnSelectItem = DeskViewSelectItem
  48.   end
  49.   object RefreshBtn: TButton
  50.     Left = 8
  51.     Top = 360
  52.     Width = 75
  53.     Height = 25
  54.     Caption = 'Refresh'
  55.     TabOrder = 1
  56.     OnClick = RefreshBtnClick
  57.   end
  58.   object GroupBox1: TGroupBox
  59.     Left = 384
  60.     Top = 16
  61.     Width = 361
  62.     Height = 97
  63.     Caption = ' Current Desktop Item '
  64.     TabOrder = 2
  65.     object Label1: TLabel
  66.       Left = 8
  67.       Top = 24
  68.       Width = 31
  69.       Height = 13
  70.       Caption = 'Name:'
  71.     end
  72.     object Label2: TLabel
  73.       Left = 8
  74.       Top = 64
  75.       Width = 40
  76.       Height = 13
  77.       Caption = 'Position:'
  78.     end
  79.     object Bevel1: TBevel
  80.       Left = 10
  81.       Top = 50
  82.       Width = 335
  83.       Height = 2
  84.       Shape = bsBottomLine
  85.     end
  86.     object Label3: TLabel
  87.       Left = 72
  88.       Top = 64
  89.       Width = 10
  90.       Height = 13
  91.       Caption = 'X:'
  92.     end
  93.     object Label4: TLabel
  94.       Left = 160
  95.       Top = 64
  96.       Width = 10
  97.       Height = 13
  98.       Caption = 'Y:'
  99.     end
  100.     object CurName: TEdit
  101.       Left = 56
  102.       Top = 20
  103.       Width = 209
  104.       Height = 21
  105.       TabOrder = 0
  106.       OnChange = CurNameChange
  107.     end
  108.     object ChangeCaption: TButton
  109.       Left = 272
  110.       Top = 20
  111.       Width = 75
  112.       Height = 21
  113.       Caption = 'Change!'
  114.       TabOrder = 1
  115.       OnClick = ChangeCaptionClick
  116.     end
  117.     object XPos: TSpinEdit
  118.       Left = 88
  119.       Top = 60
  120.       Width = 57
  121.       Height = 22
  122.       MaxValue = 0
  123.       MinValue = 0
  124.       TabOrder = 2
  125.       Value = 0
  126.     end
  127.     object YPos: TSpinEdit
  128.       Left = 176
  129.       Top = 60
  130.       Width = 57
  131.       Height = 22
  132.       MaxValue = 0
  133.       MinValue = 0
  134.       TabOrder = 3
  135.       Value = 0
  136.     end
  137.     object ChangePos: TButton
  138.       Left = 272
  139.       Top = 60
  140.       Width = 75
  141.       Height = 21
  142.       Caption = 'Change!'
  143.       TabOrder = 4
  144.       OnClick = ChangePosClick
  145.     end
  146.   end
  147.   object GroupBox2: TGroupBox
  148.     Left = 384
  149.     Top = 128
  150.     Width = 361
  151.     Height = 97
  152.     Caption = ' Global Settings '
  153.     TabOrder = 3
  154.     object Label5: TLabel
  155.       Left = 8
  156.       Top = 24
  157.       Width = 51
  158.       Height = 13
  159.       Caption = 'Text Color:'
  160.     end
  161.     object Label6: TLabel
  162.       Left = 136
  163.       Top = 24
  164.       Width = 112
  165.       Height = 13
  166.       Caption = 'Text Background Color:'
  167.     end
  168.     object TextColor: TPanel
  169.       Left = 64
  170.       Top = 22
  171.       Width = 50
  172.       Height = 20
  173.       BorderStyle = bsSingle
  174.       TabOrder = 0
  175.       OnClick = TextColorClick
  176.     end
  177.     object TextBackground: TPanel
  178.       Left = 254
  179.       Top = 22
  180.       Width = 99
  181.       Height = 20
  182.       BorderStyle = bsSingle
  183.       TabOrder = 1
  184.       OnClick = TextBackgroundClick
  185.     end
  186.     object MakeTransparent: TButton
  187.       Left = 8
  188.       Top = 56
  189.       Width = 345
  190.       Height = 25
  191.       Caption = 'Make Text background transparent'
  192.       TabOrder = 2
  193.       OnClick = MakeTransparentClick
  194.     end
  195.   end
  196.   object dm: TDesktopManager
  197.     Left = 88
  198.     Top = 360
  199.   end
  200.   object ColorDialog: TColorDialog
  201.     Ctl3D = True
  202.     Left = 120
  203.     Top = 360
  204.   end
  205. end
  206.